9000 INPUT;"COLOR OR MONOCHROME";A$
9010 IF "C" = LEFT$(A$,1) OR "c" = LEFT$(A$,1) THEN GOSUB 9500:END
9020 IF "M" = LEFT$(A$,1) OR "m" = LEFT$(A$,1) THEN GOSUB 9600:END
9030 PRINT " ":GOTO 9000
9500 REM switch to color/graphics adapter
9510 DEF SEG=0
9520 POKE &H410,(PEEK(&H410) AND &HCF) OR &H20
9530 DEF SEG
9540 LOCATE ,,1,6,7
9550 SCREEN 0
9560 WIDTH 40
9570 RETURN
9600 REM switch to monochrome adapter
9610 DEF SEG=0
9620 POKE &H410,(PEEK(&H410) OR &H30)
9630 DEF SEG
9640 LOCATE ,,1,12,13
9650 SCREEN 0
9660 WIDTH 80
9670 RETURN
